﻿Imports System.Web.Services
Imports MoniMisi2

Partial Class Validacion
  Inherits System.Web.UI.Page



  <WebMethod()> _
 Public Shared Function ManejoEmployees(ByVal pContrato As MoniMisi2.ProveedorDatosServidor.Contrato) As MoniMisi2.ProveedorDatosServidor.Contrato
    Dim Contrato As MoniMisi2.ProveedorDatosServidor.Contrato = pContrato
    'En Contrato.Operacion encontraremos los datos que nos envia el cliente
    'En Contrato.Metodo encontraremos los datos que viajan al cliente.
    Dim Employees As New NorthWindTableAdapters.EmployeesTableAdapter
    If Contrato.Operacion.Nombre = "Leer" Then
      Contrato = ProveedorDatosServidor.LeerFilas(Contrato, Employees.Adaptador(pContrato.Orden))
    Else
      'Aqui se harían las validaciones y/o grabaciones.
      'Si necesitamos enviar un mensajes de error lo haremos de esta manera:
      Dim Mensajes As New List(Of String)
      Mensajes.Add("error de validación en servidor 1")
      Mensajes.Add("error de validación en servidor 2")
      Mensajes.Add("etc.")
      Throw New ProveeedorDatosException(Mensajes)

    End If
    Return Contrato
  End Function

  <WebMethod()> _
    Public Shared Function ManejoPaises(ByVal pContrato As MoniMisi2.ProveedorDatosServidor.Contrato) As MoniMisi2.ProveedorDatosServidor.Contrato
    Dim Contrato As MoniMisi2.ProveedorDatosServidor.Contrato = pContrato
    Dim Paises As New System.Collections.Generic.List(Of Object)
    Paises.Add(New Pais("USA", "EE.UU."))
    Paises.Add(New Pais("UK", "Reino Unido"))
    Paises.Add(New Pais("AR", "Argentina"))
    If Contrato.Operacion.Nombre = "Leer" Then
      Contrato = ProveedorDatosServidor.LeerFilas(Contrato, Paises)
    End If
    Return Contrato
  End Function

  Public Class Pais
    Public Sub New(ByVal pCodigo As String, ByVal pDescripcion As String)
      Codigo = pCodigo
      Descripcion = pDescripcion
    End Sub
    Public Codigo As String
    Public Descripcion As String
  End Class
 
End Class
